home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / software.sit / Software 1.0 / card_4737.txt < prev    next >
Text File  |  1988-11-14  |  2KB  |  66 lines
  1. -- card: 4737 from stack: in.0
  2. -- bmap block id: 3156
  3. -- flags: 4000
  4. -- background id: 2336
  5. -- name: 
  6.  
  7.  
  8. -- part 4 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=249 top=63 right=112 bottom=314
  12. -- title width / last selected line: 65535
  13. -- icon id / first selected line: -6047 / 59489
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Add to Home
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   answer "Install Software button on Home card?" with "OK" or "Cancel"
  23.   if it is "Cancel" then
  24.     exit mouseUp
  25.   end if
  26.   set lockmessages to true
  27.   choose button tool
  28.   click at location of me
  29.   doMenu Copy Button
  30.   go home
  31.   doMenu Paste Button
  32.   set the name of button "add to home" to "Software"
  33.   set loc of button "Software" to 358,250
  34.   play harpsichord "ee c"
  35.   answer "Drag the new button to the desired location"
  36.   wait until the mouse is down
  37.   set hilite of button "Software" to true
  38.   repeat until the mouse is up
  39.     set loc of button "Software" to the mouseLoc
  40.   end repeat
  41.   set hilite of button "Software" to false
  42.   set script of button "Software" to empty
  43.   set script of button "Software" to "on mouseUp" && return && "visual effect iris open" && return && "go to stack Software" && return && "end mouseUp"
  44.   choose browse tool
  45.   go back
  46.   play harpsichord "ee c"
  47.   set lockmessages to false
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part contents for background part 20
  53. ----- text -----
  54. This stack is "freeware".   Please share the Mac community spirit and not sell it.
  55.  
  56. The Software Inventory stack looks best 
  57. if you have the Clean 10 point font and the Creamy 10 and 12 point font installed.  I did not include them to save on modem transmission time.
  58.  
  59. Of course, you can always reset the fields and buttons to use whatever fonts you prefer.
  60.  
  61. ANY comments or suggestions will reach me on 
  62. GEnie at JHENSLEY.
  63.  
  64.  
  65.  
  66.